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DARIC - DATA REDUCTION IN COLUMNS 


DECUS Program Library Write-up DECUS No. 8-267 

ABSTRACT 

DARIC is a formatting and computational program which provides 
for the reduction of 1 to 6 columns of data entered at the ASR keyboard 
as a function of an incremented independent variable. The format of 
rows and columns simulates manually-recorded data, offering a simple 
transition to computer reduction of data where hand-reduction might 
have been used previously, and simplifies the consolidation of data 
output by instruments in a variety of formats. Computation is via 
the Digital floating-point system through a user's data reduction pro¬ 
gram, the writing rules for which are simplified and standardized bv 
DARIC. Four versions of the program are given by way of overlays which 
provide a trade-off between data reduction program space and data 
storage space in the available core memory. 
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PARIC - DATA REDUCTION IN COLUMNS 


John J. Antal 

Army Materials & Mechanics Research Center, Watertown, Mass. 02172 


I. THE DARIC PROGRAM 


The programs having the general name DARIC (DAta Reduction in Columns) 
were written originally to assist in the reduction of several long columns of 
data taken simultaneously during an experiment, but outputted by various de¬ 
vices in a variety of formats. 


The DARIC program was written to facilitate the entry of these various 
types of data into the PDP-8 core memory where a program written to reduce 
one row of data at a time could operate it. The user's data reduction pro¬ 
gram for one row is referred to as the D.R. Program in this text. Since 
this type of data reduction is common to many laboratory procedures, the 
program was expanded to provide the general data reduction formatting system 
described here. 


1. Location of DARIC 


DARIC occupies 3 pages of core memory from address 0200 through address 
0777, and 2/5 of page 0. It must be used with the Digital Floating-Point 
System, version D, Digital 8-5-S-D, which occupies core memory from address 
4557 through address 7577, reserving the last page of memory for loaders. 

The user's D. R. Program begins at address 1000 and may extend through as 
many as nine memory pages. The core memory between DARIC and the floating¬ 
point system, locations 1000 through 4556, is divided between the user's 
D.R. Program and data storage. The data storage section in each form of 
DARIC is effectively divided into six "columns". Four forms of DARIC are 
available, each providing a different trade-off between D. R. Program space 
and data storage space as listed in Table I. Data reduction runs are easily 
segmented to remove the restriction on the number of data entries which can 
be accommodated at one time. 



Table I. 

Forms of DARIC 



Pages Avail¬ 

Inclusive Addresses 

Maximum Number 
of Data Entries 


able for 

for D.R. Program 

per Column 


D.R. Program 

(octal) 

(decimal) 

DARICl 

i 

1000 - 1174 

98 

DARIC3 

3 

1000 - 1577 

83 

DARIC6 

6 

1000 - 2377 

62 

DARIC9 

9 

1000 - 3177 

41 
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2. Data Entry Formats 

Data are entered into memory manually at the Teletype ASR keyboard. 

Two formats for data entry are available: sequential format and parallel 
format, referred to as S format and P format. With the P format, one datum 
is entered into each column and one row of entries is completed before moving 
to the next row. After all data for each column of a particular row are 
entered, the undefined variable THETA is incremented and printed out automati¬ 
cally and the next row of data is entered manually. This format is very 
compact and is particularly useful when all of the columnar data is already 
available in columnar form, or nearly so. 

With the S format, a particular column is chosen, one datum is entered 
manually, THETA is incremented automatically, and the next datum entered 
manually, and so on until that particular column is full. Other columns are 
then selected and filled in succession until all data are entered. The S 
format is particularly useful for entering data which may be available in a 
variety of formats. 

If data is to be entered which does not contain a uniformly incremented 
variable, THETA may be ignored and the nonuniform variable entered into one 
of the data columns. When it is desired to obtain :fc<; Cn IcnUrHoo of an 
expression as a function of one of its variables, the variable may be desig¬ 
nated as THETA and DARIC will output a succession of computations for equal 
increments of the variable. 

3. Loading DARIC 

Normal use requires that the D.R. Program be written before data is 
entered. Thus, three programs are in hand when the PDP-8 is to be loaded: 
Digital 8-5-S-D, DARIC, and the D.R. Program. Each is loaded with the binary 
loader (S. A. = 7777), but the Floating-Point System, Digital 8-5-S-D, must 
be loaded before DARIC. 


II. THE DIGITAL FLOATING-POINT SYSTEM 

The floating-point system of calculation devised for the PDP-8 computer 
is available in four different versions. Version 4, or D, must be used 
with DARIC. This version provides for the output of data in both decimal and 
floating-point decimal notations and provides both exponential and trigonometric 
operations in addition to the arithmetic operations of the basic floating-point 
system. 

The Interpreter of version D of the floating-point system recognizes 
the commands in Table II, listed with their mnemonics and octal codes. Un¬ 
less specifically exempted, the result of these operations is left in the 
floating accumulator. 
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TABLE II. FLOATING-POINT SYSTEM COMMANDS 


1000 FADD 

Add the contents of the effective address to the contents 
of the floating accumulator. 

2000 FSUB 

Subtract the contents of the effective address from the 
contents of the floating accumulator. 

3000 FMPY 

Multiply the contents of the floating accumulator by the 
contents of the effective address. 

4000 FDIV 

Divide the contents of the floating accumulator by the 
contents of the effective address. 

5000 FGET 

Get the contents of the effective address and deposit it in the 
floating accumulator after clearing the floating accumulator. 

6000 FPUT 

Put the contents of the floating accumulator into the locations 
specified by the effective address and leave the floating 
accumulator unchanged. 

7000 FNOR 

Normalize the contents of the floating accumulator. 

0000 FEXT 

Exit the floating-point system with the Accumulator cleared. 


0001 SQUARE Square the contents of the floating accumulator. 

0002 SQROOT Take the square root of the contents of the floating accumulator 


0003 FSIN 

Take the sine of the angle (in radians) which is in the 
floating accumulator. 

0004 FCOS 

Take the cosine of the angle (in radians) which is in the 
floating accumulator. 


0005 ARCTN Take the arctangent of the contents of the floating accumulator. 


0006 FEXP 

leaving the result (in radians) in the floating accumulator. 

Raise e to the power indicated by the contents of the 
floating accumulator. 

0007 FLOG 

Take the natural logarithm of the absolute value of the 
contents of the floating accumulator. 

0010 FNEG 

Negate the contents of the floating accumulator. 


0013 INPUT Allow input of numbers via Teletype keyboard. 
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The permanent symbol table of the PAL III assembler contains the mnemonic 
only for commands 1000 through 0000 in the listing above. The remaining com¬ 
mands must be defined for the assembler somewhere in the written data reduction 
program. The form 

FSIN=0003 

is most convenient. FNEG is inserted by DARIC, as it is very useful for data 
reduction. 


Input 

Input to the floating-point system is via the Teletype keyboard. Num¬ 
bers may be entered in decimal notation or floating-point decimal, using the 
letter E to indicate multiplication by 10 raised to the power of the follow¬ 
ing number. Both the mantissa and the exponent may be signed. For example: 


45.773 
0.45773E+2 
.45773E+2 
45773E-3 


-.11459 

-0.11459 

-11459E-5 

-11459E-05 


After typing the numerals in a particular entry, a terminator must be typed. 
Any character which is not used in the input format may be used as a termi¬ 
nator in general, but DARIC requires that only certain terminators be employed 
in order to control format presentation and to provide for error correction. 
These are discussed later. 


Output 


The typed output from Digital 8-5-S-D is either floating decimal or 
decimal. The format of the output must be specified by the user prior to 
calling for output. If decimal format is desired, the contents of address 
0062 must be equal to the total number of digits required, and the contents 
of the Accumulator must equal the number of digits to the right of the deci¬ 
mal point. If floating decimal output is desired, it is required only that 
location 0062 be cleared. 

Note that Digital 8-5-S,D does not contain facilities for rounding off 
a number to the nearest decimal digit before printing. Thus, in writing 
the D.R. Program, the user should take care to request a number of digits 
large enough to indicate the proper magnitude of the nvmber. For example, 
if only one digit to the right of the decimal point was required and so 
requested, the output of the number 10.1 might read "10.0", containing a 
1% error. Actually, the number is stored in the floating-point system as 
10.09999. 
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III. 


WRITING THE DATA REDUCTION PROGRAM 


The D. R. Program must be written in a format which connects it to DARIC, 
but otherwise the program is written as described in the floating-point 
system manual. An illustration of a D.R. Program is given below with comments on 
each instruction and notes covering the twelve parts indicated in the left mar¬ 
gin. The notes explain the simplified procedures effected by DARIC. 

The D.R. Program example repeats a computation on data which had been 
reduced manually with a desk calculator. Five items of data were recorded 
in this experiment on neutron scattering from polycrystalline iron. An 
angular parameter 29 was incremented uniformly during the course of the 
experiment, and four parameters representing background intensity and beam 
intensity ratios were recorded for each value of 20. The following column 
assignments were made by the user: 


THETA 

Column 1 

Column 2 

Column 3 

Column 4 

20 

R 

R 

B 




t 

o 

T 


The cross section S is to be determined from the expression 

S = -7.4277fn{0.1875R + 0.1875RR, x 10~ 6 [O.41667B - (2B,/R)]}. 

t o T 

The constants in the expression contain factors regarding the normalization 
of count data, and the physical parameters of the iron sample. In addition, 
29is related to the wavelength A by the expression 

A = 4.941sin(29/2). 

It is desired to reduce the data to values of S and A for each value of 26. 
Three columns of data are to be output: 20 (automatically), S, and A. 

The D.R. Program for this computation is given below with the following 
names assigned by the user to the constants in the expressions for S and A: 


NOTE ADDRESS 



*1000 


0.41667 

0.1875x10 

= 

CONST1 


CONST2 

0.1875 

= 

CONST3 

2 

as 

TWO 

-7.4277 

= 

MCONST 

4.941 

sc 

PB200 


INSTRUCTION COMMENTS 

FSIN=0003 

FLOG=0007 


TAD 0165 /5 digits total in printed output 

DCA 0062 
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ADDRESS 


CONST1, 

TWO, 

CONST2, 

CONST3, 
MCONST, 

RADEG, 


INSTRUCTION 


COMMENTS 


JMS I 77 
JMS I 7 
FGET I 74 
FDIV I 71 
FMPY TWO 
FPUT I 76 
FGET I 73 
FMPY CONST1 
FSUB I 76 
FMPY CONST2 
FMPY I 71 
FMPY I 72 
FPUT I 76 
FGET CONST3 
FMPY I 71 
FADD I 76 
FLOG 

FMPY MCONST 
FEXT 

TAD 0163 
JMS I 6 
TAD M. F IVE 
DCA 0175 
JMS I 64 
JMS I 7 
FGET I 167 
FDIV TWO 
FMPY RADEG 
FSIN 

FMPY PB200 
FEXT 

TAD 0164 
JMS I 6 
JMP I 66 


/Enter data via DARIC. 

/Call F. P. Interpreter 
/Get B from Column 4. 

/Divide by R of Column 1. 

/Multiply by 2. 

/Store result temporarily in Column 6 
/Get B from Column 6. 

/Multiply B by 0.41667. 

/Subtract term stored in Column 6. 
/Multiply by 0.1875 x 10 
/Multiply by R from Column 1. 

/Multiply by R from Column 2. 

/Store result temporarily in Column 6. 
/Get 0.1875. 

/Multiply by R of Column 1. 

/Add the stored term. 

/Take the natural log. 

/Multiply by -7.4277. 

/Leave the F.P. System 

/3 digits to right of d.p.desired. 

/Print out result 

/Deposit a -5 at address 

/0175 to provide a 

/Tab of 4 spaces 

/CallF.P. Interpreter. 

/Get T1IETA of this row. 

/Divide by 2. 

/Convert degrees to radians. 

/Take the sine. 

/Multiply by 4.‘Ml. 

/Leave the F. p . System. 

/4 digits to right of d.p.desired. 
/Print out A. 

/Jump to DARIC for next row of data. 


7777 

3252 

5343 

0002 

2000 

0000 

7752 

3112 

4716 

7776 

3000 

0000 

0003 

4222 

4043 

7773 


/0.41667 


/2 


/0.1875E-6 


/0.1875 


/—7.4277 


/0.0174533 Rad/Deg 











NOTE 


ADDRESS 


INSTRUCTION 


COMMENTS 



MFIVE 

$ 


PB200 


2167 

6435 

0003 

2360 

7126 

-5 


/-5 (Not F.P.) 


/4.941 


NOTE 1: Those mnemonics which are not a part of the Assembler's permanent 
symbol table must be defined for the Assembler. This position in the program 
is convenient. The loading of registers 0006 and 0007 is accomplished by 
DARIC and need not be repeated here as shown in the floating-point system 
manual. The Teletype buffers are also cleared by DARIC and initial instruc¬ 
tions such as KCC and TLS are not required in the D.R. Program. 

NOTE 2 : In order to make full use of the D.R. Program space provided, the 
starting address of the D.R. Program should always be 1000. 

NOTE 3 : DARIC provides for the output of printed data to a total of 6 digits 
in each number. If, as in this example, this is not satisfactory, the maxi¬ 
mum number of digits may be altered by depositing that number in register 
0062. If register 0062 is cleared, all numbers printed out will appear in floating¬ 
point decimal form with seven significant figures. 

Any other initialization required to be accomplished on^v once each 
time the program is started at address 1000 must be included in the program 
before the instruction JMS I 77 is listed. 

N0TE4 : JMS I 77 must be the instruction just prior to the start of computa¬ 
tion. This sends the program to a subroutine in DARIC (the major portion of 
DARIC) which formats the input of data into core memory. The eutiry of data 
is discussed later. 

NOTE 5 : This is the computation of S for one ROW of data. Note that access 
to the experimental data which has been stored in columns 1 through 6 is 
obtained by indirect address to locations 71 through 76, respectively. Note 
also that temporary floating-point storage is easily obtained by depositing 
in columns which do not contain data. 

NOTE 6 : These instructions provide for the printout of data. If the floating 
decimal output had been chosen (see NOTE 3), only the instruction JMS I 6 would 
have been necessary. If no digits were to appear to the right of the decimal 
point in this decimal output, only the instruction JMS I 6 would have been 
necessary since the Accumulator would have been cleared in the previous instruc¬ 
tion, FEXT. If, as in this example, the decimal format is desired with 
several digits to the right of the decimal point, the number of digits must 
be put into the Accumulator just prior to calling JMS 16. 

A series of numbers have been located on page 0 of core memory by DARIC 
which may be used to select the output decimal position. One of the follow¬ 
ing listed instructions amy be used to produce the listed results when 
SMS I 6 is called: 
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Instruction 


Number of digits to right of decimal point 


CLA 

IAC 


0, no decimal point printed 


TAD 0162 
TAD 0163 
TAD 0164 
TAD 0165 
TAD 0166 


1 

2 

3 

4 

5 

6 


The numbers stored in registers 0162 through 0166 may be used for other pur¬ 
poses, such as filling register 0062 (see NOTE 3), but they must not be 
altered. 

NOTE 7 : The result of the computation of S having been printed out, it is 
desired in this example to compute X and output the result in an adjoining 
column. DARIC contains a tabbing routine which may be used for this purpose. 
It is called with the instruction JMS I 64. The tabbing routine puts out 
ten successive space instructions to the Teletype. If the space desired 
between outputted columns is less than ten spaces,the negative of (number 
of spaces + 1) must be placed in register 0175 just prior to calling the 
instruction JMS I 64. The example shown here produces four spaces after 
the value of S is printed. 

NOTE 8 : This is the computation of X from the given expression which is a 
function of 0. DARIC provides access to the current value of THETA in 

floating-point 3-word notation by indirect reference to location 0167. In the 

sole case of DARIC1, THETA is found in the last three registers of the D.R. 
Program memory page (locations 1175, 1176, and 1177) where it may be addressed 
directly. Through address 0167, the value of THETA may be included in a 
floating-point program at any time. 

NOTE 9 : X is here printed out with four digits to the right of the decimal 
place. 

NOTE 10 : The last instruction of the D.R. Program must be JMP I 66. This 
instruction sends the program to DARIC for printout of the next value of THETA 
and an advance to the next row of data. DARIC initiates the repetition of 

the data reduction computation on this new row of data by returning to the 

instruction immediately following JMS I 77. 

NOTE 11 : As is normal with programming, all constants and storage registers 
which must be used for the computation are listed at the end of the program. 
Note that in this example 7 constants were listed in floating-point notation. 
The 3-word constants may be formulated as described in the previous chapter, 
but the floating-point system itself may be used to produce the 3 words by 
assembling the following program: 


b 

/ 


/ FPCON 


DECIMAL CONSTANTS TO F.P. CONSTANTS - REOUIRES 
DIGITAL 8-5-S-A, FPNTA, TERMINATE DECIMAL 
ENTRY AT ASR WITH A LINE FEED. S.A. = 0200. 
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*0005 


*0200 

7400 

KCC 

INPUT, 

TLS 

JMS I 5 

TAD 44 

JMS PRINT 
TAD 45 

JMS PRINT 
TAD 46 

JMS PRINT 
TAD CR 

JMS I OUT 
TAD LF 

JMS I OUT 
JMP INPUT 

PRINT, 

0000 

DCA POT 

TAD TUFIVE 
JMS I OUT 
TAD TUFIVE 
JMS I OUT 
TAD POT 

RTL 

RTL 

JMS TYPE 
TAD POT 

RTR 

RTR 

RTR 

JMS TYPE 

TAD POT 

RTR 

RAR 

JMS TYPE 

TAD POT 

JMS TYPE 

JMP I PRINT 

TYPE, 

0000 

AND BLOT 

JMS I OUTDG 
JMP I TYPE 

CR, 

LF, 

BLOT, 

OUT, 

OUTDG, 

POT, 

TUFIVE, 

215 

212 

0007 

7344 

7352 

0 

255 


$ 





NOTE 12: As always, the program is terminated with a dollar sign. 


IV. DATA ENTRY AND COMPUTATION 


1. P and S Formats 

Two formats for the entry of data are available in each DARIC program, 
parallel and sequential (P and S). V format allows the entry of data into 
all columns one row at a time, S format allows the entry of all data into a 
particular column before any other column is entered. The coice of format 
and initial information regarding the parameter THETA are accumulated by 
DARIC in a dialog with the user at the Teletype keyboard. 

After the F.P., DARIC, and D.R. Programs have been loaded, the computer 
is started at address 1000. Reproduced below is the dialog format for the 
example program of Chapter III. The portions shown underlind were entered 
by the user. The symbol C_ indicates a carrier return, and # indicates a 
space. 

FIRST THETA 107c COLUMNS IN P OR S? P 

DELTA THETA .50C 
LAST THETA +155.49 

THETA 1 2 3 4 5 6 

+107.00 .523# 810# 39# 16c 

When the S format is requested, the dialog is as follows: 

FIRST THETA 107c COLUMNS IN P OR S? JS 

DELTA THETA ~. 50 C 
LAST THETA +155.49 

COLUMN NO. 1 

+107.00 ,523 c 

+107.49 

FIRST THETA is the initial value of the variable and DELTA THETA is 
the desired uniform increment of THETA. Since the values of FIRST THETA and 
DELTA THETA are entered via the floating-point input, they may be entered 
in any of the forms listed earlier and must be terminated. A carrier re¬ 
turn should be used as the terminator in each case to preserve the format. 
DELTA THETA should be entered with the full number of digits to the right 
of the decimal point as will be desired in the printout of THETA, for DARIC 
uses this DELTA THETA value to make the determination. 

If none of the parameters in the data under consideration is uniformly 
incremented, it is convenient to set FIRST THETA = 1 and DELTA TIIETA - 1. 

The column headed THETA will then number the rows of data. The nonuniformly 
incremented parameter is entered into one of the six columns. 
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The LAST THETA value is the largest value of the parameter THETA 
which can be accommodated in core memory by the particular version of 
DARIC being used. 

In the P format, column headings are printed out by DARIC, followed by 
the value of the FIRST THETA at the left margin. At this point, the 
keyboard is teadyfor input of data by the user. Again, the data enters 
through the floating-point system input and each number must be terminated. 
In P format, the space bar is depressed for the normal terminator. However, 
the. te^uncnatoA. of the tost en&uj in the fihJSt n.ou) mast be a eahAien. netahn. 
After this carrier return, DARIC lists the next value of THETA at the left 
margin and waits for the next series of data entries to be made. 

In the S format, a request for a COLUMN NUMBER is made. The only proper 
replies are the numbers 1 through 6. No terminator is required, and columns 
may be selected in any order. The value of the FIRST TIIETA is printed out 
by that column, terminating the number with a carrier return. Successive 
THETAs are printed by DARIC and each datum entered should be terminated 
by a carrier return. In both formats, L must be the terminator at the end 
of the last row of data. 

2. Terminators and Errors 

The standard error-correction device provided by Digital 8-5-S is always 
operable when using DARIC. Typing a RUBOUT after an error has been made 
in a particular digit will make the floating-point input ignore all digits 
entered and the number may be begun again immediately after the RUBOUT. 

As data is entered in each column, four different terminators may be 
used. Their use is summarized below: 

CARRIER RETURN... Normal terminator for all entries in S format. 

Terminator for last entry of first row in P format. 

Line feed follows this terminator without operator input. 

SPACE. Normal terminator for all entires in P format except last 

entry i,n first row. 

t . L(ast entry). Must be the terminator for the last entry 

of the first column filled in S format. 

Must be the terminator of the very last entry in P format. 
Must be used, but only once , each time program is started. 

L does not print out. 

^. M(istake). May be used to terminate an entry at any time; 

all previously entered data for that row is ignored and 
the value of THETA is repeated, ready for entry of the 
proper data. M prints out to provide error notation. 
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3. No Entry 

Occasionally an experimenter will delete data points obtained in the 
course of an experiment because they are in error due to obvious causes. 

If these deletions are made in only one of several parameters recorded in a 
particular experiment, then it would be necessary to note the particular values 
THETA at which they occur since a data reduction computation would be Invalid 
at those points. To facilitate this process, DARIC allows the entry of the 
letter N (No Entry) in the position of the deleted datum* N is terminated 
in the same manner as a number. The entry of N places a very large number 
in core memory which usually results in the appearance of zero, XXXXXX 
(a number beyond the capacity of the F.P. system), a blank space, or 
another number out of context with those on either side of it. As a re¬ 
sult, the positions of the omitted data points become clear in the tabu¬ 
lated results of the computation without having otherwise recorded the fact 
of omission. 

4. The D. R. Computation 

After all data has been entered at the Teletype keyboard, DARIC will 
request: 

COLUMN NO. 

The data reduction computation begins immediately after the operator re¬ 
plies with a zero, 0. While the program is stopped, awaiting a reply to 
this request, the operator has an opportunity to check the entered data be¬ 
fore the computation proceeds, or he may wish to prepare column headings 
for the outputted results by taking the Teletype off-line. Column head¬ 
ings may be entered on the line below the "COLUMN NO." request and the platen 
manually returned to its original position. 

When the results of the computation are printed out for all values 
of THETA for which data was available, the computer stops. 

5. Repeat of Computation 

If, after completion of the output of the results of the computation, 
it is desired to repeat the calculation, this is accomplished by depressing 
the "CONT" key on the computer console and answering the request for 
"COLUMN NO." with a 0. 

6. Alteration of Data 

If, after completion of the output of the results of the computation, 
it is desired to change the data in one or more of the columns and then 
repeat the calculation, depress the "CONT" key on the PDP-8 console. The 
COLUMN NO. request will be made, and the operator is free to request any 
column from 1 through 6. Data may now be entered as if the user were em¬ 
ploying the S format. When the total number of entries equals that of the 


of 
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previously computed data, the computer will halt. Depress the "CONT" 
key again and answer the COLUMN NO. request with any number 0 through 6 
to obtain a computation involving the new data or to alter an additional 
column of data. 

The use of this system of data alteration requires that data be placed 
in a column for all values of THETA used previously. Also, the terminator 
L must not be used after the last entry since the program is not being 
restarted at address 1000. 

7. Computation of Theoretical Expressions 

DARIC may be applied to computations which are wholly or partially 
derived from theory. The computational program is written exactly as a D.R. 
Program for one row of data, except for the additional necessity to instruct 
DARIC on the number of computations to be made (this is determined by the 
terminator L during data reduction). This instruction of DARIC is accomplished 
by depositing an octal number, x> in locations 0371 and 0777, where 

X = 1 - Number of Computations Desired, 
prior to the instruction JMS I 77. 

Any number of computations up to the full data entry capacity of DARIC, 
listed in Table I, can be obtained on each pass. If the number of computations 
desired equals the full data entry capacity of DARIC, the initial instructions 
loading x may be deleted, as DARIC will always stop when the LAST THETA value 
io reached. 
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V 


PROGRAM LISTINGS 


/ DARIO 1 
/ 

/ PART 1 


1 PAGE OF MEMORY FOR D.R. PROGRAM 

98 DATA ENTRIES PER COLUMN 

REQUIRES FPNTD* DIGITAL 8-5-S*DC 4/18/65) 


*0006 

7200 /OUTPUT LOCATION 

5600 /INTERPRETER LOCATION 

*0062 

0006 /NO. OF DIGITS IN OUTPUT 

0000 /NO. OF DIGITS RT* OF DECIMAL PT* IN THETA 

0420 /TAB LOCATION 

0000 /CURRENT COLUMN NUMBER 

0662 /INCALL, RETURN FROM D.R. PROGRAM 

0000 /RETURN TO D.R. PROGRAM 

7777 /P>S SWITCH 

1211 /COLUMN 1 

1657 /COLUMN 2 

2325 /COLUMN 3 

2773 /COLUMN 4 

3441 /COLUMN 5 

4107 /COLUMN 6 

0244 /S. A. OD DARIC 

*0161 

7777 /COLUMN 0 SWITCH 

2 /DECIMAL POSITION NUMBERS 

3 

4 

5 

6 

1175 /THETA ACCUMULATOR F. P. LOCATION 

1200 /FIBST THETA F.P. LOCATION 

1203 /DELTA THETA F.P. LOCATION 

1206 /MAX. NO. LINES* F.P. LOCATION 

0000 /N SWITCH 

0000 /DELTA THETA SWITCH 

-13 /NEG. OF NO. SPACES*1 

0000 /ROW COUNTER 

*0371 

-141 /NOLINS 


*0771 

1211 
1 65 7 
2325 
> 2773 

3441 
4106 
- 141 


/FI R1 
/FI R2 
/FIR3 
/FIR4 
/FIRS 
/FI R6 
/NOLIN 





0007 /F. P.141 (OCTAL) 

3020 
0000 

PAUSE 


/ DARIC3 

3 PAGES OF MEMORY FOR D.R. PROGRAM 

/ 


83 DATA ENTRIES PER COLUMN 

/ PART 

1 

REQUIRES FPNTD* DIGITAL 8-5-S*D 4/18/65 

*0006 

7200 

/OUTPUT LOCATION 


5600 

/INTERPRETER LOCATION 

*0062 

0006 

/NO. OF DIGITS IN OUTPUT 


0000 

/NO. OF DIGITS RT. OF DEC. PT. IN THETA 


0420 

/TAB LOCATION 


0000 

/CURRENT COLUMN NUMBER 


0662 

/INCALL# RETURN FROM D.R. PROGRAM 


0000 

/RETURN TO D.R. PROGRAM 


7777 

/P*S SWITCH 


1614 

/COLUMN 1 


2205 

/COLUMN 2 


2576 

/COLUMN 3 


3167 

/COLUMN 4 


3560 

/COLUMN 5 


4151 

/COLUMN 6 


0244 

/S.A. OF DARIC 

*0161 

7777 

/COLUMN 0 SWITCH 


2 

3 

4 

/DECIMAL POSITION NUMBERS 


5 

6 

1600 

/THETA ACCUMULATOR F. P. LOCATION 


1603 

/FIRST THETA F.P. LOCATION 


1606 

/DELTA THETA F.P. LOCATION 


1611 

/MAX. NO. LINES* F.P. LOCATION 


0000 

/N SWITCH 


0000 

/DELTA THETA SWITCH 


- 13 

/NEG. OF NO. SPACES*1 


0000 

/ROW COUNTER 

*0371 

- 122 

/NOLINS 
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*0771 


1 61 4 

/FIR1 

2205 

/FI R2 

2576 

/FIR3 

3167 

/ FI R4 

3560 

/FIR5 

4151 

/FI R6 

-122 

/NOLIN 

0007 


2440 


0000 



PAUSE 


/ DARIC6 

6 PAGES OF MEMORY FOR D.R. PROGRAM 

/ 


62 DATA ENTRIES PER COLUMN 

/ PART 

1 

REQUIRES FPNTD# DIGITAL 8-5-S>D 4/18/65 

*0006 

7200 

/OUTPUT LOCATION 


5600 

/INTERPRETER LOCATION 

*0062 

0006 

/NO. OF DIGITS IN OUTPUT 


0000 

/NO. OF DIGITS RT. OF DEC. PT. IN THETA 


0420 

/TAB LOCATION 


0000 

/CURRENT COLUMN NUMBER 


0662 

/INCALL* RETURN FROM D.R. PROGRAM 


0000 

/RETURN TO D.R. PROGRAM 


7777 

/P#S SWITCH 


2414 

/COLUMN 1 


2707 

/COLUMN 2 


3202 

/COLUMN 3 


3475 

/COLUMN 4 


3770 

/COLUMN 5 


4263 

/COLUMN 6 


0244 

/S.A. OF DARIC 

*0161 

7777 

/COLUMN 0 SWITCH 


2 

3 

4 

/DECIMAL POSITION NUMBERS 


5 

6 

2400 

/THETA ACCUMULATOR F.P. LOCATION 


2403 

/FIRST THETA F.P. LOCATION 


2406 

/DELTA THETA F.P. LOCATION 


241 1 

/MAX. NO. ROWS# F.P. LOCATION 
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0000 

/N SWITCH 


0000 

/DELTA THETA SWITCH 


-13 

/NEG. OF NO. SPACES* 


0000 

/ROW COUNTER 

*0371 




-75 

/NOLINS 

*0771 




2414 

/FIR1 


2707 

/FIR2 


3202 

/FIR3 


3475 

/FIR4 


3770 

/FIR5 


4263 

/FIR6 


-75 

/NOLIN 

*2411 




0006 



3640 



0000 



PAUSE 


/ DARIC9 

/ 

/ PART 1 


9 PAGES OF MEMORY FOR D.R. PROGRAM 
41 ENTRIES PER COLUMN 
REQUIRES FPNTD* DIGITAL S-5-S>D 4/18/65 


*0006 

7200 

/OUTPUT LOCATION 


5600 

/INTERPRETER LOCATION 

*0062 

0006 

/NO. OF DIGITS IN OUTPUT 


0000 

/NO. OF DIGITS RT. OF DEC* FT. IN THETA 


0420 

/TAB LOCATION 


0000 

/CURRENT COLUMN NUMBER 


06 62 

/INCALL. RETURN FROM D.R. PROGRAM 


0000 

/RETURN TO D.R. PROGRAM 


7777 

/P,S SWITCH 


3214 

/COLUMN 1 


3407 

/COLUMN 2 


3602 

/COLUMN 3 


3775 

/COLUMN 4 


4170 

/COLUMN 5 


4363 

/COLUMN 6 


0244 

/S.A. OF DARIC 

*0161 

7777 

/COLUMN 0 SWITCH 


2 

3 

4 

/DECIMAL POSITION NUMBERS 


5 

6 

3200 

/THETA ACCUMULATOR F.P. LOCATION 




*0371 

*0771 


*321 1 

PAUSE 

/ DARIC 

*0177 

MESAGE* 


MSRGHT. 

TYPECH. 


3203 /FIRST THETA F.P. LOCATION 

3206 /DELTA THETA F.P* LOCATION 

3211 /MAX. NO. ROWS F.P. LOCATION 

0000 /.N SWITCH 

0000 /DELTA THETA SWITCH 

-13 /NEG. OF NO. SPACES*1 

0000 /ROW COUNTER 


-50 

/NOLINS 

3214 

/FI R1 

3407 

/FIR2 

3602 

/FIR3 

3775 

/FIR4 

4170 

/FIRS 

4363 

/FI R6 

-50 

/NOLIN 

0006 


2400 


0000 



PART 2 


0000 /DIGITAL 8-18-U WITH ALTERATIONS 

CLA CMA 

TAD MESAGE 

DCA 10 

TAD I 10 

DCA MSRGHT 

TAD MSRGHT 

RTR 

RTR 

RTR 

JMS TYPECH 
TAD MSRGHT 
JMS TYPECH 
JMP MESAGE*A 
0 
0 

AND MASK77 
SNA 

JMP I 10 
TAD M40 
SMA 

JMP. + 3 
TAD C340 
JMP MTP 
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mtp. 


START, 


TAD M3 
SZA 

JMP.+3 
TAD LF 
JMP MTP 
TAD M2 
SZA 

JMP .+3 
TAD CR 
JMP MTP 
TAD C245 
JMS I OUT 
JMP I TYPECH 


INPUT=0013 
0 

TAD START 
DCA 0067 
KCC 
TLS 

JMS 0177 


TAD M40 
DCA 0175 
JMS I 0064 
JMS 0177 
0317; 1425; 

1116; 4020; 
2377; 4000 
JMS I TYPE 
TAD MPEE 
DCA 0070 
DCA 0063 
JMS 0177 


4543; 0000 


1516; 2340 /COLUMNS 
4017; 2240 /IN P OR 
/S? 


/P*S SWITCH SET. 0=P 
/RESET THETA DIGITS 


JMS THETA 
JMS I 7 
INPUT 

FPUT I 0167 
FPUT I 0170 
FEXT 

JMS 0177 

0405; 1424; 0100 

JMS THETA 

STA 

DCA 0174 
JMS I 7 
INPUT 

FPUT I 0171 
FEXT 

DCA 0174 
JMS 0177 


4545; 0611; 2223; 2400/FIRST 


/DELTA 

/SET DELTA THETA SWITCH 


/RESET DELTA THETA SWITCH 
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/>MAX 



761 51 

01301 5600 


JMS THETA 


JMS I 

7 


F GET 

I 0172 


FMPY 

I 0171 


FADD 

I 0170 


FEXT 



TAD 0063 


JMS I 

6 


JMS 0177 


45431 

4300 


TAD NOLI NS 


DCA 0176 


DCA I 

ZEND 


STA 



DCA 0161 


TAD 0070 


JMP I 

P2 

THETA. 

0000 



JMS 0177 


24011 

4000 


JMP I 

THETA 

ZEND. 

0756 


OUT. 

7344 


CR. 

215 


MASK77. 

77 


M40. 

-40 


C340. 

340 


M3. 

-3 


NOLI NS. 

- 141 


LF. 

212 


M2, 

-2 


C245, 

245 

, 

MPEE, 

-320 


TYPE, 

7142 


P2» 

0400 


PAUSE 




/ DARIC 

*0400 

SZA 

JMP REQUST 
JMS I THET 
TAD HEIGHT 
DCA 0175 
JMS SPACES 
TAD TUSIX1 


/SET MAX. NO. OF LINES 


/RESET COLUMN SWITCH 


40241 1005 


PART 3 


/S( EQUENTI AL) ENTRY 1 
/PC ARALL EL ) ENTRY 
/TYPE COLUMN HEADINGS 
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p arlfl# 


OCA MAPLE 
JMS HEAD* 
J MS HEAD 
JMS HEAD 
JMS HEAD 
JMS HEAD 
JMS HEAD 
TAD TUSIX 1 
JM P COLUMN 


SPACES# 


HEAD# 


0000 

iSZ 0175 
JMP .+ 4 
TAD MWUN 3 
0 CA 0175 

JMF I SPACES 
tad Sp 

Jms i outs 
- wp SPACES* 1 

0000 

tad MAPLE 
JMS I OUTS 
J SZ 0175 


ISZ MAPLE 
JMP I HEAD 




Rpqust# 


COLUMN, 


parcol# 


datain. 


JMS 0177 
0317# 1425; 

4016; 1756; 
JMS I TYP 
OCA 0065 
JMS 0177 
4543; 4300 
TAD 0065 
CIA 

TAD TUSIXI 
SPA SNA 
JMP DATAIN 
CLA 

DCA 0161 
STA 

OCA 0070 
JMS LINE 
JMP I 0067 
SMA 

JMP COL I 
I AC 
SMA 

JMP COL 2 


1516 

4000 


/CHOOSE COLUMN l 
/TEN spa ces per column 

'HEADINGS GENERATOR 
JMS SPACES 

/REQUEST FOR COLUMN NUMBER 


/COLUMNS 1-6 
/COLUMN 0 

''USE S FORMAT FOR COLUMN 0 
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COLS* 
C0L4* 
COL 3* 
C0L2* 
COL 1 * 
ADDR* 


ON* 


SPT* 


I AC 
SMA 

JMP COL 3 
I AC 
SMA 

JMP COL 4 
I AC 
SMA 

JMP COLS 
CL A 
NOP 

TAO 007 6* 

TAD 0075? 

TAD 0074} 

TAD 0073} 

TAD 0072} 

TAD 0071 
OCA HOLD 
TAD 0070 
SZA CLA 
JMP ON 
TAD 0065 
CIA 
TAD TUSIX1 
SNA CLA 
JMS LINE 
JMS I 7 
INPUT 

FPUT I HOLD 
FEXT 

ISZ 0173 
JMP SPT 
JMS I 7 
FGET mant 
FPUT I HOLD 
FEXT 

DCA 0173 
TAD 0057 
CIA 

TAD SP 
JMP I EST 


JMP ADDR 
JMP ADDR 
JMP ADDR 
JMP ADDR 
JMP ADDR 


LINE* 


0 

TAD mfiv/e 

DCA 0175 
JMS I 7 
FGET 1 0167 
FEXT 

TAD 0063 
JMS I 6 
JMS SPACES 
JMP I LINE 


/DATA ENTRY ADDRESS HELD 


/TYPE OUT THETA 


/DATA ENTRY STORED 
/N TYPED? 


/RESET N SWITCH 
/SPACE TYPED? 


/type theta routine 


99 






MFIVE# 

-5 

HOLD# 

0 

MAPLE# 

0 

THET# 

0354 

MANT# 

2000 

TUSIX1# 

261 

SP# 

240 

EST# 

6573 

TYP# 

7 142 

OUTS# 

7344 

MWUN3# 

- 13 

MEl GHT# 

- 10 

PAUSE 



' DARIC 


*0600 


ENDT # 


MOVALL# 


TAD 

EMMSP 


SZA 

CL A 


JMP 

L ENTRY 


JMP 

CRLF 


TAD 

0070 


SZA 

CLA 


JMP 

INCALL 


TAD 

CIA 

END 


TAD 

0065 


SNA 

CLA 


JMP 

INCALL 


JMS 

I 0064 


ISZ 

0065 


JMP 

I PARCO 


TAD 

007 1? TAD 

0163 

DCA 

007 1 


TAD 

0072? TAD 

0163 

DCA 

0072 


TAD 

007 3# TAD 

0163 

DCA 

0073 


TAD 

00741 TAD 

0163 

DCA 

0074 


TAD 

0075? TAD 

0163 

DCA 

0075 


TAD 

0076? TAD 

0163 

DCA 

0076 


JMS 

I 7 


FGET 

I 01 67 


FADD 

I 01 71 


FPUT 

FEXT 

I 0167 



PART 4 


/M TYPED? 

/NOT M 
/M 


/S 

/P 


/END COLUMN? 

/YES# TYPE CR# LF 

/NO# FILL COLUMN WITH SPACES 

/P 

/INCREMENT F.P. ADDRESSES 


/INCREMENT THETA 
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*■ 


CRLF, 

SAMLIN, 

INCALL, 

LENTRY, 


PORS, 

ENN, 


ISZ 0176 
NOP 

JMP SAMLIN 
JMS 0177 
45431 0000 
TAD 0070 
SZA CLA 
JMP I PARCO 
TAD TUSIX 
DCA 0065 
JMP I PARCO 
JMS 0177 
4543 
0000 


TAD 

SZA 

JMP 

TAD 

CIA 

TAD 

DCA 

DCA 

JMS 


0176 

CLA 

PORS 

LLINE 


NOLIN 
0176 
END 
I 7 
FGET I 0170 
FPUT I 0167 
FEXT 

TAD FIR1; DCA 
FIR2J DCA 
FIR3i DCA 
FIR4; DCA 
FIR5; DCA 
FIR6J DCA 
0177 


TAD 
TAD 
TAD 
TAD 
TAD 
JMS 
4343 
0000 

TAD 0161 
SNA 
HLT 
JMP 
TAD 
SZA 
JMP 
TAD 
DCA 
JMP 


0071 

0072 

0073 

0074 

0075 

0076 


I REQUS 

0070 

CLA 

MOVALL 

0065 

END 

MOVALL 


/INCREMENT LINE NO. 


/RETURN FROM D.R. PROGRAM 

/LAST LINE? 

/NO 

/YES, RESET LAST LINE SWITCH 


/RESET THETA ACCUMULATOR 


/RESET ALL COLUMN ADDRESSES 


/COLUMN 0? 

/YES 

/REQUEST NEXT COLUMN 


TAD MENN /N(0 ENTRY)? 

SZA CLA 

JMP ELL /NOT N 

STA 

DCA 0173 
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TAD 0057 
JMS I OU 
DCA 0057 
JMP DOWN 

ELL* 

TAD 0057 
TAD MELL 
SZA CLA 

JMP DOWN 
TAD 0176 
DCA LLINE 
DCA 0176 

CHANGE* 

TAD CRS 

DCA 0057 

DOWN* 

TAD 0057 
JMP I ZERO 

END, 

0 

LLINE* 

0 

CRS* 

815 

TUSIX* 

261 

ZERO* 

7151 

MELL* 

-314 

REOUS* 

0440 

MENN, 

-316 

EMMSP* 

315-240 

PARCO* 

0454 

OU* 

7344 

FI R1 * 

121 1 

FIR2* 

1657 

FIR3* 

2325 

FIR4* 

2773 

FIRS* 

3441 

FIR6* 

4107 

NOLIN* 

PAUSE 

- 141 


/ DARIC PART 5 


*6554 

*6573 

6000 

SNA 
JMP I 

TEND 


JMP I 

EM 

TEND* 

0604 


EM* 

0600 


*7040 


JMP I 

OAK 


/TYPE N 

/TEST FOR L(AST ENTRY) 

/SAVE LINE NUMBER 
/SET LINE NO. = 0 
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*7150 

JMP PINE 

*7172 

PINE* 

ISZ 0175 

NOP 

TAD 0057 

JMP I EN 

EN* 

OAK* 

0732 

6173 

*6173 

CLA 

BEECH* 

PRSW* 

TAD I PRSW /TEST FOR DECIMAL PT. 

JMP I BEECH 

6763 

7513 

*6763 

CMA 

AND 0174 /TEST FOR DELTA THETA 

JMP I ELM 

ELM* 

4774 

*4774 

SZA CLA 

ISZ 0063 

JMP I ASH 

ASH, 

7017 


s 
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